home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / coax-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  2KB  |  49 lines
  1. 5  PRINT "DETERMINATION OF FACTORS RELATED TO TRANSMISSION LINE LOSSES."
  2. 10 PRINT "WHAT IS THE INPUT POWER? EXPRESS AS 100 AND THE ANSWERS WILL BE                 AS PERCENTAGES OF THE INPUT POWER."
  3. 15 INPUT "ENTER";PI
  4. 20 PRINT "WHAT IS THE IMPEDANCE (ZO) OF THE TRANSMISSION LINE?"
  5. 25 INPUT "ENTER";ZO
  6. 30 PRINT "WHAT IS THE LENGTH (L) OF THE TRANSMISSION LINE IN FEET?"
  7. 35 INPUT "ENTER";L
  8. 40 PRINT "WHAT IS THE ATTENUATION (X) IN DB PER 100 FEET?"
  9. 45 INPUT "ENTER";X
  10. 50 A=L*X/100
  11. 55 PRINT "WHAT IS THE SWR (SI) AT THE INPUT TO THE LINE?"
  12. 60 INPUT "ENTER";SI
  13. 65 M=SI-1
  14. 70 N=SI+1
  15. 75 Q=N/M
  16. 80 R=A/10
  17. 85 T=10^R
  18. 90 U=T+Q
  19. 95 SO=U*(1/(Q-T))
  20. 100 ZR=ZO*SO
  21. 102 S=ZR/ZO
  22. 105 C=(S-1)/(S+1)
  23. 110 G=EXP(-.46*A)
  24. 115 H=EXP(-.23*A)
  25. 120 J=C^2
  26. 125 PF=PI/(1-(J*G))
  27. 130 PL=(1-J)*H*PI/(1-(J*G))
  28. 135 PR=PF-PI
  29. 140 PM=PI/10^(A/10)
  30. 145 LA=4.343*LOG(PM/PL)
  31. 150 LT=A+LA
  32. 151 PRINT
  33. 152 PRINT "                     ***ANSWERS***
  34. 153 PRINT
  35. 155 PRINT PI "INPUT POWER (PI)."
  36. 160 PRINT ZO "IMPEDANCE (ZO) OF TRANSMISSION LINE."
  37. 165 PRINT L  "LENGTH (L) OF LINE IN FEET."
  38. 170 PRINT X  "ATTENUATIION (X) IN DB PER 100 FEET."
  39. 175 PRINT A "MATCHED LOAD ATTENUATION (A) OF LINE IN DB."
  40. 180 PRINT SI "SWR (SI) AT INPUT TO THE LINE."
  41. 185 PRINT SO "SWR (SO) AT OUTPUT OF LINE."
  42. 190 PRINT ZR "LOAD RESISTANCE (ZR)."
  43. 195 PRINT PF "FORWARD POWER (PF)."
  44. 200 PRINT PL "LOAD POWER (PL).
  45. 205 PRINT PR "REFLECTED POWER (PR)."
  46. 210 PRINT PM "POWER TO A MATCHED LOAD (PM).
  47. 215 PRINT LA "ADDITIIONAL LOSS (LA) DUE TO STANDING WAVES."
  48. 220 PRINT LT "TOTAL LOSS (LT) IN DB."
  49.